home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_23910.txt < prev    next >
Text File  |  1990-08-07  |  3KB  |  146 lines
  1. -- card: 23910 from stack: in.0-2
  2. -- bmap block id: 24285
  3. -- flags: 0000
  4. -- background id: 18737
  5. -- name: fieldStyles
  6. ----- HyperTalk script -----
  7. -- This handler stores the name of the last card.
  8. on goBack
  9.   go cd "Text Fields" of stack "Intro to HyperCard 2.0"
  10. end goBack
  11.  
  12. on closeCard
  13.   put "Type anything here." into cd fld "sampleFld"
  14.   click at the loc of btn "Rectangle"
  15. end closeCard
  16.  
  17. on changeTheFieldStyle
  18.   deHiliteOtherBtns
  19.   set the hilite of the target to true
  20.   put the short name of the target into fieldStyle
  21.   set the style of cd fld "sampleFld" to fieldStyle
  22. end changeTheFieldStyle
  23.  
  24. on deHiliteOtherBtns
  25.   repeat with n = 3 to 7
  26.     set the hilite of btn id n to false
  27.   end repeat
  28. end deHiliteOtherBtns
  29.  
  30.  
  31. -- part 1 (field)
  32. -- low flags: 00
  33. -- high flags: 0002
  34. -- rect: left=112 top=164 right=229 bottom=361
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 0
  38. -- font id: 3
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: sampleFld
  43.  
  44.  
  45. -- part 3 (button)
  46. -- low flags: 00
  47. -- high flags: 8006
  48. -- rect: left=135 top=234 right=256 bottom=253
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: Transparent
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   changeTheFieldStyle
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 4 (button)
  65. -- low flags: 00
  66. -- high flags: 8006
  67. -- rect: left=135 top=255 right=277 bottom=253
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Opaque
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   changeTheFieldStyle
  79. end mouseUp
  80.  
  81.  
  82.  
  83. -- part 5 (button)
  84. -- low flags: 00
  85. -- high flags: C006
  86. -- rect: left=252 top=234 right=256 bottom=389
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: Rectangle
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   changeTheFieldStyle
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 6 (button)
  103. -- low flags: 00
  104. -- high flags: 8006
  105. -- rect: left=252 top=255 right=277 bottom=389
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Shadow
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   changeTheFieldStyle
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 7 (button)
  122. -- low flags: 00
  123. -- high flags: 8006
  124. -- rect: left=192 top=276 right=298 bottom=329
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Scrolling
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   changeTheFieldStyle
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part contents for background part 1
  141. ----- text -----
  142. Click the cursor in the box below (the cursor will change to show that you can enter text), and type anything you want. Then click the various buttons below to change the field style.
  143.  
  144. -- part contents for card part 1
  145. ----- text -----
  146. Type anything here.